#!/usr/bin/perl

#--------------------------------------------------------#
# Image Displayer                                        #
# Copyright 1998 CN Consulting Inc. www.CNConsulting.com #
# Author: Tuananh Nguyen - Tuananh@CNConsulting.com      #
# Date: 2/2/98                                           #
#--------------------------------------------------------#
    $server = $ENV{'HTTP_HOST'};
    if ("$server" eq "trijug.org") {
       welcome();
    } else {
       print "Location: http://trijug.org/\n\n";
    }
    exit;

sub welcome {
    print "Content-type: text/html\n\n";
    open(WELCOME, "welcome.html");
    while ($line = <WELCOME>) {
        print "$line";
    }
    close(WELCOME);
}
